............ ............ $db= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False" $alias = db.RunSQL($db,"Select * from EMP") MsgBox($alias) //$alias, at this point, forms a group variable for EMP and returns 1 $alias = db.RunSQL($db,"Select * from PAYROLL") MsgBox($alias) //$alias, at this point, forms a group variable for PAYROLL and returns 1 (EMP is closed and the variables will be blank) ............ ............
while db.RunSQL($ConnStr,$sql) ........... endwhile
:MAIN display "Waiting for call" answer $Provider= "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=Student.mdb;Persist Security Info=False" $sql = "INSERT INTO Mark(Rollno, Name, Mark) VALUES (105,'Raj',89)" $num = db.RunSQL($Provider,$sql) MsgBox(concat($num," Records added")) hangup goto MAIN :ONSYSTEMERROR hangup MsgBox($error) log $error goto MAIN